10 DIM B(40)
11 INPUT"TEXT ";T$
12 INPUT"FORMATIERUNG (1-4) ";F
13 REM
14 ON F GOTO27,30,33
15 A=1:B(0)=0:FORC=1TOLEN(T$)
16 IFMID$(T$,C,1)=" "THENB(A)=C:A=A+1
17 NEXTC:B(A)=LEN(T$)+1
18 IFA=1THENPRINTT$:GOTO11
19 D=(A+38-LEN(T$))/(A-1)
20 E=INT((D-INT(D))*(A-1)+.5)
21 FORF=0TOA-2
22 PRINTMID$(T$,B(F)+1,B(F+1)-1-B(F));
23 PRINTSPC(D-(E>0));
24 E=E+1:NEXTF
25 PRINTRIGHT$(T$,B(A)-B(A-1));:GOTO11
26 REM
27 PRINTT$;:IFLEN(T$)<40THENPRINT
28 GOTO11
29 REM
30 PRINTTAB(20-LEN(T$)/2);T$;
31 IFLEN(T$)<40THENPRINT
32 GOTO11
33 PRINTSPC(40-LEN(T$));T$
34 GOTO11
35 REM
36 REM ********************************
37 REM *                              *
38 REM *      'CENTRE YOUR TEXT'      *
39 REM *         WRITTEN BY           *
40 REM *     ZEITGEIST/H-T/WILLOW     *
41 REM *                              *
42 REM ********************************